On the metric hypercomplex group 
alternative-elastic algebras for n mod 8 = 0. 



K.V. Andreev 

In this article the fine-tuning of the algorithm 9.1 [2], [3] is considered. In this 
connection, answers to the following questions are given. 

<n: 

Q ! 1. How to construct the metric hypercomplex Cayley-Dickson algebra by means 

■ of the algorithm 9.1 for n = 2^? 

^ \ 2. How to construct the metric hypercomplex orthogonal group alternative-elastic 

■ algebra by means of the algorithm 9.1 for n mod 8 =0? 

in: 

3. How to decompose the metric hypercomplex orthogonal homogenous group 

^ • alternative-elastic algebra on an algebraic basis? 

^ ■ 4. That is the generator of the metric hypercomplex orthogonal homogenous 

■ group alternative-elastic algebra and as it to construct? 

S: 

'— 5. How technically to realize the algorithm 9.1 and to construct the canonical 
^ . sedenion algebra for n=16? 

>: 

^ ! Let product of elements of the hypercomplex group alternative-elastic algebra A 

O i [I], |5], [2], |3] over the field M and the vector space M" (n mod 8=0) defined as 

O , Axiom 1. For any elements a and b, their product c is uniquely defined: 

(N- 

! c = ab. 

>■ 

! Axiom 2. There exists the unique identity element e. For any element a: 

ae = ea = a. 

Axiom 3. For any element a ^0, the inverse element is uniquely determined: 

aa~^ = a^^a = e. 

Axiom 4. (The weakly alternative identity.) For any elements a and b: 

{aa)b — a{ab) = b{aa) — {ba)a. 
Axiom 5. (The flexible identity.) For any elements a and b: 

a{ba) = {ab)a. 

Axiom 6. (The distributive identity.) For any elements a,b and c: 

a{b + c) = ab + ac, {b + c)a = ba + ca. 
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Build one of such the algebras. Suppose that the vector space M" is equipped 
with the metric ... = l,n) 

_ n— 1 n—l 

< a,b > e := |(a6 + ba), a = aoe + J2 cirGr, a = aoe — ^ QrCr, (1) 

r=l r=l 

Let's consider that the metric Qij is Euclidean metric: < a,b >= dijd^V in the special 
orthogonal basis. 

= Va ^ 0, 

<a,a> ' ' 

a + a = 2aoe = 2 < a, e > e, 

a(a + a) = 2 < a, e > a, 
= — < a, a > e + 2 < a, e > a, (2) 
(a + 6)^ = + ^2 _^ ct6 + 6a = -(< a, a > + < 6, 6 > +2 < a, 6 >)e+ 
+2(< a, e > a+ < a,e > b+ < b,e > a+ < b,e > b)), 
|(a6 + ba) = — < a,b > e+ < a,e > b+ < b,e > a. 

Definition 1. Let the identities 

1 11 
-(ab + ba) = — < a, b > e+ < a, e > b+ < b, e > a, rj^ij^^ = 2{—=r](i)Sj)^ — gij(—=r] 

2 v2 V 2 

(3a) 

^ <ab-ba,a >= 0, ?7(i|j|fc) - ^^^(ifc) = 0, Pd) 
1 1 

-<ab-ba,e >= 0, r/[ij]'=(— r/fc) = 0. ([3b') 

are executed by definition for all a and b, where rjij^ are the structural constants of 
the unital algebra with the algebra identity e = -^'u'^ and the distributive identity. 
Such the algebra we name the orthogonal hypercomplex algebra A. 

Theorem 1. The orthogonal hypercomplex algebra will be the metric hypercomplex 
group alternative- elastic algebra. 

Proof. The equations ([3]) are a consequence of the Clifford equation for n mod 8=0 
[2], m {A,B,... = lJ^, iV = 2t-i) 

V^^^^jCB + Tlj^^ViCB = 9ijSc^- (4) 

n-l 

At the same time, r]i'^^ = ^ ^{vi)i{^i)^^ ■ Among the tensor (si)^^ it has only one 

symmetric tensor {(eq)^^ =: e^^ - the metric spin-tensor), the remaining tensors are 
antisymmetric tensors. Then the structure constants of the orthogonal hypercomplex 
algebra A have the form 

r^,/ := V2v.''\cAv''DBe^'', X^' = Sa^'X^, (5) 

where 6'-^^{6'^^ecD '■= 2) is an arbitrary symmetric tensor, and 5*^"^' is generated by 
the real inclusion Hi^ : M" i — ^ C" (A, ^, ... = 1^) [2], (3]. Then e := ^r^^ {rj'' := 
(rjo)^). Therefore, 

n— 1 ^ 

^^/^=E^(^^)^(^^)/ (6) 



where gij =: {go)ij, and the remaining tensors {gi)ij are antisymmetric tensors. 
Indeed, 



(7) 

then the axioms 1-3, identity ( l3al) are executed. Analogically, 



V{i\m = V2v(i'^^v\jCA\Vk)DBd'~^^ = i-j^Vj)9ik 



(8) 



(9) 



Vi(jk) = V2i2r]i^^r](^j\(^cA)\r]k)DB0'^^ - rii'^^VU\Ac\ilk)DBO^^) = 
= V^iVi j9k)t - V{k9j)i + ^Vi9jk) = i^Vi)9jk 

then the identity (13bp is executed, 

Vm'^ij^Vk) = V2riii^^Vj]CAij^Vk)v''DB0^^ = r][i^BV3]CA0^^ 

= 2ri^,^BmCA)e''^ -V[^^BV,]AC^^''''^ = 0, 

^ V ' V ' 

=VliVj]=0 =0 

< ah — ba, e >=< {a + e)b — b{a + e), a + e > — < ab — ba,a >= 0. 

then the identity (l3b^|) is executed as a consequence from (13bp . Indeed (5 1^1 1^1 
0, := ry,^V^^ pj, [3J, = ^(^^)) 

l^(i|jNfc|0'" = V{i^^Vl)ZCVk^'^VjXAV''YBV"'TDO^^O^'^ = 
_ ^ CD^ ^ nZT ^ABCD^ ^ ^ .^m nXY nZT _ 

— V{i Vl)ZCVjV TD^ —£ V{l\ZC\Vi)YBVjXAV TD^ O — 

— Vii Vl)VjV TDO £ZC — 29ilVjV ~^ Vil\ZC\Vi)YBVjXAV TD^ ^ , 

Imk^m)^ = v(i^^vi)zcVj^^VkXAv''TDv"'YBO^^e^^ = 

= ViiVnzcVj^^v'^TDO^^ - Vii\TD\Vi)zcO^V^V"'+ 

I „ -BA„ CD^ „ qXY nZT 

+Vk Vj V{i\xA\Vi)zcV tdV ybo y — 

— r, r, r, CDm nZT ^ ^ ftZT^ CDm , BA^ ^ m nXY 

— ViiVl)ZCVj V TD^ - 1l{i\TD\Vl)ZC^ Vj V + Vj Vii\XA\Vl)V Y B^ - 

" V ' ^ v ' v ' 

12 1 
^BACD„ „ „ „m nXYnZT _ 

-£ V{i\XA\Vl)ZCVjTDV YBO U — 

— ^ C-D^ ^ on™ Q^T" c ^ ^ ^"^ ^ABCD^ ^ „ nZTnXY 

— V(i VnVjV TD^ £zC~7;9ilVjV V{l\ZC\Vi)YBVjTDV XA^ ^ 
^ ^ .1 



(10) 

Otherwise, from (j3]) 

|((a6)a + a[ab)) = 
= — < a, (ab) > e+ < a, e > (ab) + < (afe), e > a = 

=<b,e><a,a> -<a,b>+2<b,e><a,e> 

= — < a,b > a+ < a,e > {ab)+ <b,e>{— <a,a>e + 2<a,e>a) = 

' dini) 



^2 



a (— < a,b > e+ < a, e > b+ < b, e > a) 



-V ' 



i(afe+ba) 

[ah)a = a(ba). 
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There is the alternative-elastic identity 

{{aa)b) — {a{ab)) — (a(6a)) = ((6(aa)) — ((6a)a) — {{ab)a). (11) 

{{aa)b) — (a(a6)) — (a(6a)) = — <a,a>b + 2<a,e> (ab) — 
— 2(a(— < a,b > e+ < a,e > b+ < b,e > a)) = 
= — < a,a > b + 2 < a,b > a — 2 < b,e > {— < a,a > e + 2 < a,e > a) = 
= 2 < b,e >< a,a > e + {2 < a,b > —4 < b,e >< a, e >)a— < a,a > b, 

(12) 

(6(aa)) — {(ba)a)) — ((ab)a) = — <a,a>b + 2<a, e> (ba) — 
— 2((— < a,b > e+ < a,e > b+ < b,e > a)a) = 
= — < a,a > b + 2 < a,b > a — 2 < b,e > {— < a,a > e + 2 < a,e > a) = 
= 2 < b,e >< a,a > e + {2 < a,b > —4 < b,e >< a, e >)a— < a,a > b, 

then the axioms 4-5 are executed too. Note that the equations provide the 
execution of the axiom 3-5, the equations ([5]), provide the execution of the 
axiom 1-2,6 and the equations ([3]). From (|3]) the common Jordan identity 

a^ba^) = {a%)a^ (13) 

follows. □ 

In addition, 

gkrV{i\j\''Vl)rrJ' = QkrV^ j{iTf \m\l)- (14) 

This identity follows from (l3l) and it is called the weakly normalization identity. 
This identity is the normalization identity for n=8 only {gkrV^j{iV''\m\i) = gjmgu in 
this case). And so this algebra is normalized [2], |3]. 

Theorem 2. The metric real numbers, complex numbers, quaternions, octonions, 
sedenions, hypercomplex Cayley-Dickson numbers possess the identities 



Proof. Let r = 1, n — 1 then for the Euclidean metric 5ij Vx 

n—1 n—1 

X — X Q e I ^ ^ z 1^ X J' , X — X Q c ^ ^ % J' X I 



(15) 



Let X := a + bi, y := c + di where i := in/2 (r = 1, n/2 — 1) then for the Euclidean 
metric 6ij Va, b 

n/2-l 

a = a^e + Yl ^r-ir, = h iri = V+n/25 < e, ai >= 0. (16) 

r=l 

Definition 2. (according to pp. 300-303]) 1. Let's define the multiplication for 
an inductive step according to the Cayley-Dickson double procedure as 

a{bi) = {ba)i, {ai)b = {ab)i, {ai){bi) = —ha. (17) 

2. Let's define the conjugation for an inductive step according to the Cayley-Dickson 
double procedure as 

a + bi = a — bi. (18) 
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Metric hypercomplex Cayley-Dickson algebra possesses the following identities. 
1. 

Set Va, c : ^(ac + ca) =< a, c > e by the induction then the following identity is 



received 



2. 



3. 



l{xy + yx) =<x,y > e, 
{xy + yx) = (a + hi){c — di) + (c + di){a — hi) 
= ac + dh + {he — da)i + cd + hd — {he — da)i - 
= 2(< a,c> e+ < d,h > e) = 2 < x,y > e. 



^{yx + xy) = —^{yx + xy)+ < x,e > y+ < y,e > x 
= — < x,y > e+ < x,e > y+ < y,e > x. 



(19) 



(20) 



2 < ai,h >= {ai)h + h{ai) = {ai)h - h{ai) = {ah)i - {ah)i = 0. (21) 

4. 

Set Va, c : ac = m by the induction then the following identity is received 



xy = {a + hi){c + di) = ac — dh + {he + da)i 
= {cd — bd) — {he + da)i) = yx. 



(22) 



5. 

Set Va, c : < ac — ca, e >= by the induction then the following identity is received 

< xy — yx, e >= 

=< {{ac — dh) + {he + da)i) — {{ca — bd) + {he + dd))i, e >= (23) 
=< (ac - ca) + ((-6 + 2 < 6, e >)d - {-d + 2 < d,e >)b, e >= 0. 

6. 

Set Va, c : < ac,a >=< ca,a >=< ac,a >=< ca,a >=< c,e >< a, a > by the 
induction then the following identity is received 

< xy, X >=< y, e >< x, x >, 
< xy, X >= 
=< ac — dh + {he + da)i, a + hi >= 
=< ac, a > + < be, h > + < da, h > + < dh, a > —2 < d, e >< h,a > = 

" V ' 

=-<(i(a-fe),(a-fe)>+<(i,e><a,a>+<d,e><b,6>-2<d,e><fe,a>=0 

=< y, e >< x,x > . 

(24) 
□ 

On the other hand, on the base of the corollary 8.2 [2], [3] it is executed 

n-l 

:= E(7i(^/)')(-3(/i/)., +r](,(r]/)o) = 

n-l 

V2v^''%cAv'DBj^e^'' -SE{j^^{Vi)'){hj),, = 



7=1 

V2{2 - n)r^,^^r^,cAv'DBj^e^'' + Eh^iM'^if^ihih + v^r//^r^,cA^^B|e^^^ 



(25) 
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where gij =: 3(/io)jj, and the remaining tensors {hi)ij are antisymmetric tensors. 
But {hi)ij are not arbitrary tensors, there are the compatibihty conditions ([3]) 



(26) 



V{i\m - i^Vj)9ik, Vi{jk) - {^Vi)9jk, 



1=1 1=1 

So the equation ( l25l) takes the form 

n-l 

= V2{2 - n)7],^^r],cAv'DBjje''''+ 

n-l 1 1 1 

' V ' 

(27) 

Note 1. Since for any special (non-special) orthogonal transformation Si^ according 
to corollary 8.3 J^, the equation 

Qi^AB ^ CD Q Ad B f Q AB ^DCq Ad B\ fr)Q\ 

is executed then any special (non-special) orthogonal transformation Si^ keeping the 

algebra identity {S := S = S) will transform the structural constants as Si'Sm'^^ij^S^k 
that generates the transformation of the controlling spin-tensor 6^^ i — )■ 6^^ S'^cS^ d, 
{6^^ I — > jfS"^^ — 6^^ S'^cS^ d) keeping without a change r]i^^ from 

Definition 3. Hypercomplex orthogonal algebra A is called the homogenous algebra 
if the orthogonal transformations Sj exist for all I: {hi)ij = C(i{Si)i"^{hgen)mi{Si)/ , 

iVih = iSI)^^ir]gen)m (c^I G M, / = 1,71-1). 

So, in order to construct an hypercomplex orthogonal homogenous algebra A, 
the algebra identity -^v'' generator -^{rjgen)'' (hgen) ij is necessary to know. Then 
from this generator using orthogonal transformations keeping the algebra identity, 
n — 1 basic elements (127|) are constructed. 

n-l _ _ _ 2 



rj,,' = {1-Y1 ^V^^''VJCAV'DB ^e^^ 



+ E «/ iiSi)/ihgenWiSi)MSj)r + V27^i^^7^,cAV^DB^E''^ 

1=1 ^ 



V 

k 



■ = iVl)ij 

Obviously, the equation 0291) is a decomposition of the hypercomplex orthogonal 
homogenous algebra A (%■*') on an algebraic basis A/ In other way, {rii)ij^ := 

n-l 

y/^Tji'^^VjCA v'^DBidi)'^^ ■ Define 9^^ := ^ ai{9j)'^^ then T]ij'' determine the hyper- 

7=0 

complex orthogonal homogenous algebra A according to 

Consider the algorithm 9.1 [3] based on the Bott periodicity [1]: 
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Algorithm 1. i. A, 



1,2^- 



a, 



1, + 6, a, 



1,2^ 



Suppose there is an orthogonal algebra A with the structural constants 
generated from the connection operators ri\^^ with the metric spinor e^^ and the 
inclusion operator Hi^. We assume that the metric tensor g/^x^, on the main diagonal 
contains «+» only. Then we can construct the antisymmetric operators for the space 



ab 



ha 



















^^AK 




Va'^b 


\ 




















(^^)ac'' 


(^EcB 

















—aejsTM 


(^^)AiV^ 






















Va^m 


















aepR 


-(r/'^)AP^ 











-C^PB 






— 7£'^^ 





-TlA^R 









































V 




-Pety 


—Setr 





C^TM 











/ 

/ 
















(30) 


/ 


n 
u 


n 
u 





-C^AQ 





—Seak 


— P^AD 




\ 




n 


g 


^^CR 










{V )A D 





















(^^)A^i. 






















VAL^' 




















-(^^A^Q 









































I3exz 


Y 

-VAX 




















v 


-iV^A^Z 


TY 


^SrTR 
















/ 








UiVn+l + Vr 










m) 








a := 


.+2), /5: 














7 := 


+ iVn+A), ^ : 




+ inn+i), 




(31) 










^{T]n+5 + iVn+e), C- 












2.A,... = 1, 


n + 8, 


i, ... = l,n + 8, A, .. 


= 1,2^ 


a 


1, n + 6, 


a,... = 





1,2^- 
follows: 



Transition to the connection operators of the space C""^^ is carried out as 



Va 



AB 



'la 



jacd 



^(«^n+7 + ^n+8), 



^ ■= -(- 

^ 2^ 



with the metric spinor e 



xz 



-iVn+7 + Vn+S, 





^xz 



5a 



5% 







(32) 
(33) 
Then we 



5\ 
Sc' 

go to the connection operators of the space C C"+^ using the corresponding 

inclusion operator. And such the operators generate the structure constants of the 
sedenion algebra with dimension equal to n + 8. 

Note 2. In the conditions of the algorithm [I] and the examples Ul the algebra 
identity is ■^rjn-^.sfor accordingly -^fln)- Therefore, for reduction of designations in 
conformity, it is necessary to make the redesignation: n + 8 1 — > Q(or accordingly 
n I — > Oj. 
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Example 1. Let Age„ is defined by the condition on the controlling spinor 



n + 8 _2 

■= 1, +1 := 1. 



(34) 



Let II H ^"+8 II /?■ 



+8, 



l,n + 8, y4„+8, ... = 1, 2"2* ^) is identity matrix. Then 

C„ + 8-Dn + 8 _ + 8 + 8 (35) 



'gen 



Vin + sjn + 8 



;=p«7i + 8^ 



71 + 8 



Therefor, = l,n, A„,... = l,22 

X^"+« = (X^",0,0,0,0,0,0,0,Fc,., 0,0, 0,0, 0,0,0), Xi = l, ri = l, (37) 



P,„^sA„^s ■■= H,„^,^-^^{<PYa„, 0, 0, -CXb^,0, -5Xc^, -f3Xn„,VA.K„''-X^" 



Define 
Then 



V^X^", 0, 0, er^", 0, 71^'^", r7A/"T„lzJ. (38) 

^.77+8^"^^^.77+8*"-^n0V^-eC-75+«/3+r?A/"iJ,.V'A„r7^„a.''"^''")- (39) 



9i„+sjn+8 2^(«7i+8in + 8)) gen) i„ + sj„ + s ■ 2z/l . 



(40) 



Whence, (i, ... = l,n + 8, A, ... = 1,2"^ ^) for all n mod 8 = 
Table 1: The matrix table example {hge„)ij. 





-1 
































1 








































-1 
































1 








































-1 
































1 








































1 
































-1 












































































1 
































-1 








































-1 
































1 








































-1 
































1 













































































+ i^iVn+7)j){hgen)i — {^{Vn+7)i){hgen) j ' — {hgen)ij{^{Vn+7) )• 

Thus, the generating algebra Kgen{hgen) is constructed. This algebra is unique in 
that, it is the generator for the metric Cayley-Dickson algebra for n + 8 = 2^ . 
And because the metric Cayley-Dickson algebra with rjij'' satisfies the equations 
Ij^ and definition [3 then it must have the generating algebra with, for example, 
{hgen)ij '■= Vij^ i'T^Vn+i) k , hgen = ctSkgenS for somc a G M whcrc S is the orthogonal 
transformation keeping the algebra identity. 
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Table 2: The multiplication table example of the algebra Ag^n {ijlgenjij^)- 



* 


ei 


£2 


=3 


=4 


=5 


= 6 


= 7 


=8 




= 11 + 1 


=11 + 2 


= 11 + 3 


=11 + 4 


= 11 + 5 


= 11 + 6 


=11 + 7 


= n + 8 




-f^ji + S 


= 11 + 7 




























-=2 


= 1 


^2 


— Sti + T 


— =11 + 8 




























= 1 


=2 








— = 11 + 8 


=11 + 7 
























— =4 


=3 


€4 






- = ii + 7 


-=11 + 8 
























=3 


=4 












-=11 + 8 


=11 + 7 




















-=6 


=5 


ee 










-=11 + 7 


- = 11 + 8 




















= 5 


=6 
















- = ,1 + 8 


-=11 + 7 
















=8 


= 7 
















= 11 + 7 


-=11 + 8 
















- = 7 


=8 


























































— = 11 + 8 


-=11 + 7 










= 11 + 2 


=„ + l 


E,l + 2 




















=11 + 7 


-=11 + 8 










- = 11 + 1 


= „ + 2 


e,i + 3 
























- = 11 + 8 


=11 + 7 






-=11+4 


= n + 3 


























- = ,1 + 7 


-=n + 8 






= 11 + 3 


=11 + 4 






























-=11 + 8 


=„ + 7 


-=11 + 6 


= ™ + 5 


= 71 + 6 




























-=11 + 7 


- = n + 8 


=11 + 5 


=11 + 6 


en + 7 


=2 


- = 1 


=4 


-=3 


=6 


- = 5 


-=8 


= 7 




- = 11 + 2 


= 11 + 1 


= re + 4 


-=n + 3 


= 11 + 6 


- = n + 5 


- = 11 + 8 


=11 + 7 


=11 + 8 


ei 


=2 


=3 


=4 


=5 


=6 


= 7 


=8 




=11 + 1 


=11 + 2 


= « + 3 


=11+4 


=11 + 5 


=11 + 6 


=11 + 7 


= 11 + 8 



Note 3. The controlling spinor = (1, 0, 0, 0, 1, 0, 0, 0) from ^ generates the 
oktonion algebra entirely. But tensor 

h,j := i7,^if/(r/A^BlAr/*c''X^), = (1, 0, 0, 0, 0, 0, 0, 0), Ya = (1, 0, 0, 0, 0, 0, 0, 0) 

(42) 

is generated by the equation as usual. Therefore, n = 8 is the initial induction 

step. 

The last paragraph of the example [T] should be clarified. Let the hypercomplex 
orthogonal algebra is given by the structural constant rjij''. Then these constants 
can be expanded according to ([3]) as 



From ([29]) and corollary 8.2 [2], [3] 



(43) 



k .. 



V(ij)k = {Vo){ij)k, Vii\j\k) = {Vo)ii\j\k), Viijk) = {Vo)iijk) 



CD 



(44) 



iVa] 
iVa] 



{ij)k - 0, 



(iim 



0, {ria)ijk = V[ijk], {-/^'n'){Va)ijk = 0. 



iijk) - u, 



Define 



This equation always has the particular solution 



(45) 



\CD 



\DC 



[Vajlm V XYV Vr 



'3V2N 



[Vajlm V XYV Vr 



3V2N 



(46) 
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This statement follows from the equation executed for all even n > 8 (note 16.1 [2], 

m) 

(47) 

And this identity is a consequence of the identities (16.28) and (16.31) |2j, |3j. 
Thus, 

:= (^o)^^ + ieaf" (48) 

that proves the theorem. 

Theorem 3. Every hypercomplex orthogonal algebra A admits the decomposition 

Note 4. The orthogonal transformations Si^ from the group 0(n, M) (5*0(71, R)) 

generate the pinor (spinor) transformations Sa^ from the group pin{n, M) {Spin{n, M)) 
which are allocated with the real structure by the involution Sa^ according to (6. 41) 
from J^, JBj. The pinor (spinor) transformations represent the subgroup of the 
orthogonal group Oir(22~-'^, C) (S'Om(25~i, C)) (in the sense Sa^ Sc^sbd = £ac, 
Sa'^ =Sa'^Sc^S£)^ where Ebd is the metric spinor). The orthogonal transformations 
from the group 0{n, M) {SO{n, M)) keeping the algebra identity cause the transformations 
of the controlling spinor 9'"^ without changing the connection operators rji^^ . Therefore, 
the quotient group 0K(2t-\C)/pm(n,M) {S0m,{2^''^ X) / Spin{n,M)) will implement 
the classification of such the hypercomplex orthogonal homogenous algebras A. 
Besides, the classification is carried out on own values of the controlling spinor 
9^^ because any symmetric spinor 9^^ (^5]) is led to a diagonal form by the 

orthogonal transformation from the group 5'0]r(22~-^, C). 

Theorem 4. Hypercomplex metric Cayley- Dickson algebra is the hypercomplex special 
orthogonal homogenous algebra A. 

Proof. Let x := a + hi where i := in/2- Set that any hypercomplex metric Cayley- 
Dickson algebra At is the hypercomplex special orthogonal homogenous algebra by 
the induction. Then i t has {hgen)i j ■= {h ijjj and { hi)ij = ai{Si)i"^ {hgen)mi {Si)/ 
(«/ e M, / = 1, 1 - 1, i,j,m,l = 0, 1 - 1, a,6, c = |,n - 1, a, (3 = 0,n - 1). Let 
the hgen has the form {hat ■= SaSb^hij, haj := Sahij, ha, := 5b^hij, 6a ■ ii+n/2 ii)) 

■ (49) 



-{hi)ab + 2iiVn/2)a{Vl+n/2)b " {'ni+n/2) a{Vn/' 



2 b 



Then for the hypercomplex metric Cayley-Dickson algebra A" exists three types of 

the basic elements only. 

1. 

^^'^"^ ^ ( ^ 0^*' ~{hj)ab + 'j{{Vn/2)a{Vl+n/2)b ' {Vl+n/2)a{Vn/2)b) ) ' ^^^^ 

In this case the special orthogonal transformations {Si)i^ leave motionless the 
identity vector e = -^t/o- Hence, analogical transformations (S'/)a'' leave motionless 
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the vector i = ei = ■^f]n/2- Thus, the special orthogonal transformations have the 
form 

{S,)J := ( ^^^y V (51) 



(Sj)," 



2. 



-{hl)ia+l{Vl)iiVn/2)a\ 

-{hi)bj - \{r]n/2)b{m)j )' 

In this case the special orthogonal transformations leave motionless the identity 
vector and the vector rail line i with changing the direction, convert the vector ii to 
the vector i/+„/2 and vice versa, and have the form {Sj+ii)a^ := {Si)a'^{Si)-y'^ where 

(c.,._f -T2^" + ^2^^iU^^f + i(i + 7^){v.Uv.f 



73^^" + 1(1 - j^)ivMVl+n/2r - jy,{V0UVn/2r 
Tf*^*" " ^iVl+n/2)b{Vl+n/2T " |(1 + ■j^){Vn/2)b{Vn/2) 



(53) 



3. 

In this case the special orthogonal transformation Sn/2 leave motionless all the 

vectors with < even index r, r < n/2, rjj^^^ ^j^^ remaining transformations is such 
odd mdex r, r > n/2. 

(< >= -1): 



-ii in/2, r = 1; 

in/2 ii, r = n/2; 

< irir-l,il > ir — ^ in/2+r-l, T = 2s + 1 < n/2, r > l] 

<V+iV,2i>V V-n/2+1, r = 2s>n/2. 



(54) 



□ 



Thus, all is made necessary for technical realization of the algorithm [H 

Example 2. Let n=16. The algorithm [I] zs realized in the Appendix. 

1. This article contains the file "sedenion.pas" (by the operator \ input {sedenion. pas} ) 
being a programming unit adapted to the LaTex (LaTex version this article on 



http : // arxiv.org / ) for the Delphi. At the same time, this file is the Appendix 
to this article. You must create a project with this "unit sedenion" and put on 
the form Buttonl: TButton, StringGridl: TStringGrid (the lines 22-24)- 

2. At error occurrence "Stack overflow" it is necessary to adjust the line 15. 

3. At the lines 14-6-163 the connecting operators \/27]i^^ for'K^ (i,A,B = 1,8) 
is constructed. 

4. At the lines 164-166 the metric spinor Eab is constructed. 

5. At the lines 167-183 the connecting operators ^j2r]i^B, V^rjiA^ , y/2{v'^)i'^B, 
V2{r]^)iA^ is constructed. 
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6. At the lines 186-251 the connecting operators multiplied by \/2 for n=14 is 
constructed according to the step 1 of the algorithm [II 

7. At the lines 252-289 the connecting operators for n=16 is constructed according 
to the step 2 of the algorithm Ql 

8. At the lines 290-294 the controlling spinors is constructed according to 

9. At the lines 295-303 the inclusion operators Pj^ := tjjab^^ is constructed 
according to [3^) . 

10. At the lines 304-333 the structural constants {r]gen)ij'' '■= V^Vi^^ PiaP^ b is 
constructed according to l[5\). l[^) . 

11. At the lines 334-4'^9 the basic orthogonal transformation Sj is constructed 
according to ^MW- 

12. At the lines 480-534 the canonical sedenion structural constants is constructed 
according to ^EW- 

13. At the lines 535-548 the canonical sedenion structural constants is outputted. 

14. At the lines 549-584 the canonical sedenion structural constants is outputted 
into the file: 



Table 3: The canonical sedenion multiplication table. 



* 


60 


61 


62 


63 


64 


65 


66 


67 


68 


69 


610 


611 


612 


613 


614 


615 


Co 


60 


61 


62 


63 


64 


65 


66 


67 


68 


69 


610 


611 


612 


613 


614 


615 


ei 


61 


-60 


63 


-62 


65 


-64 


-67 


66 


69 


-68 


-611 


610 


-613 


612 


615 


-614 


62 


62 


-63 


-60 


61 


66 


67 


-64 


-65 


610 


611 


-68 


-69 


-614 


-615 


612 


613 


63 


63 


62 


-61 


-60 


67 


-66 


65 


-64 


611 


-610 


69 


-68 


-615 


614 


-613 


612 


64 


64 


-65 


-66 


-67 


-60 


61 


62 


63 


612 


613 


614 


615 


-68 


-69 


-610 


-611 


65 


65 


64 


-67 


66 


-61 


-60 


-63 


62 


613 


-612 


615 


-614 


69 


-68 


611 


-610 


66 


66 


67 


64 


-65 


-62 


63 


-60 


-61 


614 


-615 


-612 


613 


610 


-611 


-68 


69 


67 


67 


-66 


65 


64 


-63 


-62 


61 


-60 


615 


614 


-613 


-612 


611 


610 


-69 


-68 


68 


68 


-69 


-610 


-611 


-612 


-613 


-614 


-615 


-60 


61 


62 


63 


64 


65 


66 


67 


69 


69 


68 


-611 


610 


-613 


612 


615 


-614 


-61 


-60 


-63 


62 


-65 


64 


67 


-66 


610 


610 


611 


68 


-69 


-614 


-615 


612 


613 


-62 


63 


-60 


-61 


-66 


-67 


64 


65 


611 


611 


-610 


69 


68 


-615 


614 


-613 


612 


-63 


-62 


61 


-60 


-67 


66 


-65 


64 


612 


612 


613 


614 


615 


68 


-69 


-610 


-611 


-64 


65 


66 


67 


-60 


-61 


-62 


-63 


613 


613 


-612 


615 


-614 


69 


68 


611 


-610 


-65 


-64 


67 


-66 


61 


-60 


63 


-62 


614 


614 


-615 


-612 


613 


610 


-611 


68 


69 


-66 


-67 


-64 


65 


62 


-63 


-60 


61 


615 


615 


614 


-613 


-612 


611 


610 


-69 


68 


-67 


66 


-65 


-64 


63 


62 


-61 


-60 



15. Algorithm [I] is realized by the scheme "one-to-one" and therefore, it requires 
more memory allocation (the line 15). In order to apply it to higher dimensions, 
it should be optimized. 
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16. System characteristics of the computer on which the program is tested: 

HP Pavilion dv7-6b50er i3-2330M/4096/500/Radeon HD6770 2Gb/Win7 HP64 

17. Run time <3c. 
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//The sedenion multiplication table. 



Appendix. 



2 {..,.,.,.,,,..,,,..,,..,,,,,,.******************************^ 

4 { Sedenion Unit for Delphi 

5 { 

6 { Copyright (c) 2011 Konstantin Andreev All Rights Reserved 

7 { THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED 

8 { INCLUDING BUT NOT LIMITED TO THE IMPLIED MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR 

9 { PURPOSE. KONSTANTIN ANDREEV CANNOT BE HELD RESPONSIBLE FOR ANY LOSSES, EITHER DIRECT OR 

10 { INDIRECT, OF ANY PARTY MAKING USE OF THIS SOFTWARE. IN MAKING USE OF THIS SOFTWARE, YOU 

11 { AGREE TO BE BOUND BY THE TERMS AND CONDITIONS FOUND IN THE ACCOMPANYING LICENSE. 

12 { 
13 

14 unit sedenion ; 

15 {$M 16384,9000000} 
16 

17 interface 

18 uses 



19 Windows , Messages , SysUtils , Classes , Graphics , Controls , Forms , Dialogs , 

20 StdCtrls , Grids , IniFiles ; 

21 type 

22 TForml = class (TForm) 

23 Buttonl : TButton ; 

24 StringCridl: TStringCrid; 

25 procedure ButtonlClick ( Sender : TObject ) ; 

26 end ; 

27 var 

28 Forml : TForml ; 

29 implementation 

30 {$R *.DFA1} // 

31 procedure TForml . B u t to n 1 C li c k ( S e n d er : TObject); 

32 type 

33 complex = record x.y real; end ; 

34 var 

35 eta 1 6 : array [1.. 16,1. .128,1. .128] of complex; / / The connection operators 

36 //for n = 16 r/i^^ . 

37 eta 16 : array [1.. 16,1. .128,1. .128] of complex; / / The connection operators 

38 ~ ~ //for n^l6 thab ■ 

39 eta 8 : array [1..8 ,1..8 ,1..8] of complex; //The connection operators 

40 // for n=8 ■ 

41 eta 8 : array [1.. 8,1. .8,1. .8] of complex; / / The connection operators 

42 //contracted with the metric 

43 //spinor for n = 8 'Hi^ b ■ 

44 eta 8 : array [1.. 8,1. .8,1. .8] of complex; / / The connection operators 

45 //contracted with the metric 

46 // spinor for n = 8 'mA^ ■ 

47 eta 8 T : array [1.. 8,1. .8,1. .8] of complex; / / The connection operators 

48 //contracted with the metric 

49 //spinor for n = 8 {■n'^)i^B- 

50 eta 8 T : array [1..8 ,1..8 ,1..8] of complex; //The connection operators 

51 // contracted with the metric 

52 //spinor for n=8 {r{^)iA^ ■ 

53 eta : array [1.. 16,1. .16,1. .16] of complex; / / The structural constant of 

54 //^ generating hypercomplex 

55 //algebra for n = 16 (rir,.-^ ^.-.-^ from IIH . 

56 eta : array [1.. 16,1. .128,1. .16] of complex; / / The auxiliary variable 

57 // for n = 16 t?^^*^ . 

58 e 8 : array [1..8,1..8] ofcomplex; / / The metric spinor for n = 16 

69 //II £AB 11 = 11 E'*'' II . 

60 P : array [1.. 16,1. .128] ofcomplex; //The inclusion operator 

61 //for n=16 

62 //II PiA l|:=ll P'a 11 = 11 msAX'' II . 

63 X : array [1..128] ofcomplex; / / The controlling spinor 

64 //for n = 16 . 

65 unit _ : array [0..15] ofcomplex; / / The algebra identity e — r?^ , 

66 //II 11 = 11 'Ji II ■ 

67 g : array [0..15 ,0..15l of complex; //The metric of the Euclidean 

68 //space E^" 

69 //II 9ij 11 = 11 9'^' ll = Mi-* II . 

70 i,j,k,l,m,r :integer; //Indicesofanarrayelemcnt. 

71 mi :complex; / / The complex factor i . 

72 mi :complex; / / The complex factor —i. 

73 m :complex; / / The complex factor — 1. 

74 ml2 :complex; / / The complex factor — 12. 

75 m_3 :complex; / / The complex factor ^ . 

76 IniFile : TIniFile; //The output file. 

77 array str : string ; //A line of the output file . 

78 s orthogonal : array [1..15 ,0..15 ,1..16] of complex; //The basic orthogonal 

79 / / transformations 

80 //for n = 16 (Sj)i^ (/ ^ TTTS) from note[2]. 

81 eta orthogonal : array [1.. 15,0. .16,0. .16,0. .16] of complex; / / The structural constant 

82 //of hypercomplex basic 

83 //algebras for n = 16 {'nj)^^^ . 

84 eta orthogonal : array [1.. 15,0. .16,0. .16,0. .16] of complex; / / The auxiliary variable . 

85 eta constant : array [0.. 15,0. .15,0. .15] of complex; / / The structural constant 

86 //of the canonical sedenion 

87 //algebra .7; > . 
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89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 



Addition of complex numbers, 
function add(cll,cl2: complex):complex; 
var cl3 : complex; 
begin 

cl3 .x: = cll . x+c 12.x; 

cl3.y: = cll. y+cl2 . y ; 

add : = c 1 3 ; 
end ; 

M u 1 1 i p 1 i c a. t i o n o f c o m p I c x n u m b c r s . 
function mul(c21,c22; complex):complex; 
var cl3 : complex; 
begin 

cia .x:=c21 .x*c22 .x-c21 . y»c22 .y; 
cl3.y: = c21.x*c22. y+c21 . y« c2 2 . x ; 
mul : = c 1 3 ; 
end ; 

Initialization of a complex number, 
procedure Init {var c31 complex); 
begin 

c31 .x: = 0; c31.y:=0; 
end ; 
begin 

initialization the connection operators for n = 8. 
for i :— 1 to 8 do 
for j : — 1 to 8 do 
for k: = l to 8 do 
begin 

Init _ { eta_8 | i , j , k ] ) ; 
Init_ {eta_8_ [ i , j , k | ) ; 
end ; 

//Initialization the metric s p i n o r for n = 8 . 
for i ; = 1 to 8 do 
for j : = 1 to 8 do 
Init_ {e_8[i , j ]) ; 
//Initialization the connection operators for n = 16. 
for i:::^! to 16 do 
for j :=1 to 128 do 
for k: = l to 128 do 
begin 

Init _ (eta_16 [ i , j , k ] ) ; 
Init_{eta_16_[i ,j ,k]); 
end ; 

//Initialization the ortogonal ti'ansformation for n = 16. 
for m:— 1 to 15 do 
for i: = l to 16 do 
for j:=l to 16 do 
Init (s orthogonal [m,i ,j ]); 
//Initialization the s e d c n i o n algebra identity for n = 1 6 . 
for i:^0 to 15 do 
Init _ ( unit_ [ i ] ) ; 
unit _ [ ] . X : ^ 1 ; 
/ / I n i t i Ji. 1 i ; 1 i i I. ' ii the metric tensor, 
for i:^0 to 15 do 
begin 
for j : = to 15 do 
Init_(g|i ,j I); 
|i ,i].x; = l; 



end ; 

/ / Construction 
eta_8 [ 1 . 
eta_8 [ 2 . 
eta 8 3. 



for 
for 



the connection operators (generating the octonion algebra) for n=S ( multiplied by \/2 ) . 



1 ,2] 


y 


= + 1; 


eta 


i[i 


,3,4] 


y 


= + 1; 


1 ,2] 


X 


= -1; 


eta 


i[2 


,3,4] 


X 


= + 1; 


1 ,3] 


y 


= -1; 


eta 


i[3 


, 2 , 4| 


y 


= + 1; 


1 ,3] 


X 


= + 1; 


eta 


i[4 


, 2 , 4| 


X 


= + 1; 


1 ,4] 


y 


= + 1; 


eta 


i[5 


,2 ,3| 


y 


= + 1; 


1 ,4] 


X 


= -1; 


eta 


i|6 


,2,3] 


X 


= + 1; 



eta 
eta 
eta 
eta 
eta 
eta 



8 [1 ,5 
'8 [2 ,5 
'8 [3 ,5 

8 [4 ,5 
'8(5,5 
'8 [6 ,5 



,6] 


y 


= -1; 


,6| 


X 


= -1; 


,7| 


y 


= + 1; 


,7] 


X 


= + 1; 


,8] 


y 


= -1; 


,8] 


X 


= -1; 



eta 
eta 
eta 
eta 
eta 
eta 



i: = l to 8 
j: = l to 



do 

^ do 





for k: = l to j 


do 
















begin 


















eta 8 1 i , j , k 1 


. x: = - 


eta 8 


[i ,k,j 1.x; 












eta 8 [ i , j , k j 


■ y-=- 


eta 8 


[i ,k,j ].y; 












end ; 


















eta 8 |7 , 1 , 5| . y : 


= + 1; 


eta ^ 


[7 ,2 ,6|.y;= 


+ 1; 


eta 


8 |7 


,3 , 




eta 8 |7 , 5 , 1 1 . y: 


= -1; 


eta 8 


[7 ,6 ,2|.y:= 


-1; 


eta 


8 [7 


,7 , 




eta 8|8 ,1 ,5].x: 


=+1; 


eta i 


[8 ,2 ,6|.x:= 


+ 1; 


eta 


8 [8 


,3 , 




eta_8 [8 , 5 , 1] . x: 


= + 1; 


eta i 


|8 ,6 ,2| .x:= 


+ 1; 


eta 


_8 [8 


, 7 , 


//c 


o n s t r u c t i o n the 


m c t r 


c s p i 


n o r f o r n — 


8 








e 8[l,5|.x: = l;e 


8 [2 


6] . x: 


= l;e 8 |3 , 7] 


. X : = 


l;e 


8 |4 


,8] 




e 8|5,l|.x: = l;e 


_8 [6 


2] . x: 


= l;e_8|7 ,3] 


. X : = 


l;e 


_8 |8 


,4| 


//c 


3 n s 1 1 u c t i o n t h e 


c o n n 


? c t i 13 n 


operators 


c o n t 




t c d 


wit 



,3|.y 
,7|.x 
,31.x 



= +1 
= -1 

= + 1 
= + 1 



eta 
eta 
eta 
eta 



; [1 ,7 
i [2 ,7 
'8 [3 ,6 
"8 [4 ,6 
'8 [5 ,6 
"8 [6 ,6 



8[7 ,4 ,8].y 
8[7 ,8 ,4|.y 
8[8 ,4 ,8|.x 
"8 [8 ,8 ,4| . X 



,8] 


y 


= -1 


,8] 


X 


=+1 


,8] 


y 


= -1 


,8] 


X 


=+1 


,7] 


y 


= -1 


,7] 


X 


= + 1 



=+1 

:-l 

= + 1 
= + 1 



=8 (multiplied by \/2 ) . 



for i : — 1 to 8 do 
for j : — 1 to 8 do 
for k: = l to 8 do 
begin 

Init _ {eta_8_ | i , j , k | ) ; 

Init _ {eta_8 [ i , j , k | ) ; 

Init _ {eta_8_T [ i , j , k j ) ; 

Init _ {eta_8 T[ i , j , k ] ) ; 

for m: = 1 to 8 do 
begin 

eta_8_ I i , j , k] : = add ( eta_8_ | i , j , k] , mul (ota_8[i ,j ,m] ,o_S[m,k])); 
eta_8_T [ i , j , k] : = add (eta_8_T [ i , j , k| , mul ( eta_8 | i ,m, j ] , e_8 |m, k ] ) ) ; 

eta_8 I i , j , k| : = add (ota_8 [ i , j , k j , mul ( eta_8 | i ,m, k| , e_8 |m, j j ) ) ; 

eta_8 T( i , j , k] : = add (eta_8 T[ i , j , k| , mul( eta_8 [ i , k ,m| , e_8 [m, j | ) ) ; 

end ; 
end ; 
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184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 



//The constant factors : 

mi.x: — 0; mi . y : — 1 ; 
//Construction the 



i{mi), —i(m i) , — l{m ), 



connection 
//I. n = 13,14. 

for i : — 1 to 8 do 



= 0; 
o p e r 



for 1 : 


= 1 to 


1 do 




begin 








eta 


IC |13 , 


+ 0,1 + 


24]: = 


eta 


16 [13 , 


+ 8,1 + 


16]: = 


eta 


16 [13 , 


+ 32,1 + 


56]: = 


eta 


16 [13 , 


+ 40,1 + 


48]: = 


eta 


16 [13 


i+ , 1 


+ 24]: 


eta 


16_ [13 


i+ 8,1+16]: 


eta 


16 [13 


i +32, 1 +56]: 


eta 


16_ [13 


i +40, 1 +48): 


end ; 








I. n ^ 1 1 . I 2 . 






or i ; = 


1 to 8 


do 




for 1 : 


= 1 to 


i do 




begin 








eta 


16 [1 1 , 


+ 0,1 + 


40]: = 


eta 


16(11, 


+ 8,1 + 


32]: = 


eta 


16 [1 1 , 


+ 16,1 + 


56]: = 


eta 


16 [1 1 , 


+ 24,1 + 


48]: = 


eta 


16 [11 


i+ , 1 +40]: 


eta 


16_ [11 


i+ 8 , 1 


+ 32]: 



-1]; 



-1]; 



eta 
eta 
end ; 



[11 
.111 



_8[i ,1[; 



i[i ,1]; 



*[i ,11; 

1 (in_, e_8 
1 (in_, e_8 

i[i ,1]; 
.8]i ,1]; 



hi 6, 1 +56]: = mul(m_, e_! 
h24, 1 +481: = e_8 ] i , 1 ] ; 



for i: = l to 8 
for 1: = 1 to 
begin 

eta_16 ]9 , i 
eta_16 ]9 , i 



do 
1 do 



1+48]: 
1+56]: 



- mul (in 

- mul ( m 



eta_16 ]9 , i+16,1 + 32] : = mul ( m_i 
eta_16 ]9 , i +24, 1 +40] : = mul ( m_i 

eta_16_]9,i+ , 1 + 48] : = mul ( mi 
eta_16_]9,i+ 8 , 1 + 56] : = mul ( mi 



[9 ■ 
.[9 . 



eta 16 
eta 16 
end ; 
//4, n-1-.-. 

for i: = l to 8 
for 1: = 1 to 
for k: = l to 
begin 

eta 1 6 [ k , 
eta 1 6 [ k , 



i +16, 1 +32[: 
i +24, 1 +40|: 



do 
1 do 
8 do 

+ 0,1 +56[: 
+ 8,1 +48|: 



- mul ( mi 

- mul ( mi 



; m .X 

r n-14 


= — 1 ; m . y : = ; 
from iSOl.JBgn ( 


multiplied 


by n/2). 




1]); 


eta 16 ]14 , i 
eta 16 114 , i 


f 0,1 + 
+ 8,1 + 


24]: = 
16]: = 


mul ( mi , e 8 
mul ( m i , e 


li ,11); 
81i ,1]); 


1]); 


eta 16 ]14 , i 
eta 16 114 , i 


+ 32,1 + 
+ 40,1 + 


56]: = 
48]: = 


mul ( m i , e 
mul ( mi , e S 


sli ,1]); 
li ,11); 


,1]); 


eta 16 ]14, 
eta 16 ] 1 4 , 


i+ 0, 1 
i+ 8, 1 


+ 24]: 
+ 16]: 


= mul ( m i , e 
= mul ( mi , c 


sji ,1]); 
81i,il); 


,1]); 


eta 16 ] 1 4 , 
eta 16 ]14, 


i +32, 1 
i +40, 1 


+ 56]: 
+ 48]: 


= mul ( mi , c 
= mul ( m i , e 


81i,ll); 
_81i ,1]); 


1]); 


eta 16 ]12 , 
eta 16 ]12 , 


i+ 0, 1 
i+ 8, 1 


+ 40]: 
+ 32]: 


= mul ( mi , e 
= mul ( m i , e 


81i ,1]); 
_81i ,1]); 


1]); 


eta 16 ]12 , 
eta 16 ]12 , 


i +16, 1 
i +24, 1 


+ 56]: 
+ 48]: 


= mul ( mi , e 
= mul ( m i , e 


81i,ll); 
_81i ,1]); 


,11); 


eta 16 ]12 
eta 16 ]12 


, i+ 0,1 +40 
, i+ 8,1 +32 


: = mul ( m i , 
: = mul ( mi , e 


e 8]i , 1 1) 

_81i,l]); 


,11); 


eta 16 ]12 
eta 16 ]12 


, i +16, 1 +56 
, i +24, 1 +48 


: = mul ( m i , 
: = m u 1 ( m i , c 


e 8]i , 1 ]) 
_81i ,1]); 




eta 16 ]10 , i + 
eta 16 110, i + 


, 1 +481: = mul(m , e 8 ] 
8 , 1 +561: = e_8 | i , 1 ] ; 


i .11); 




eta 16 JIO , i 
eta 16 IlO , i 


+ 16,1 + 
+ 24,1 + 


32]: = 
40]: = 


mul (m , e 8 
e_8]i7l IT 


li ,11); 




eta 16 JlO , i 
Ota 16 110 , i 


f 0,1 + 
+ 8,1 + 


48]: = 
56]: = 


mul (m , e 8 
e_8]i7l IT 


li ,11); 




eta 16 JIO , i 
eta 16 110 , i 


+ 16,1 + 
+ 24,1 + 


32]: = 
40]: = 


mul (m , e 8 
e_8]i7l IT 


li ,11); 



= eta 
= eta 



i ,i|; 
k,i ,1] 



eta_16 [k , i +16, 1 + 40] : = eta_8_ _T ] k , i , 1 ] ; 
eta_16 |k , i + 24 , 1 + 32] : = et a_ 8_ ] k , i , 1 ] ; 

eta_16_ Ik , i+ 0,1 +56]: = eta_8 ]k , i , 1 ] ; 

eta_16_ jk , i+ 8,1 +48] : = eta_8_T ]k , i , 1 ] ; 



]k , i +16, 1 +40]: = 
Jk , i +24, 1 +32]: = 



eta 8 
eta 8 



T]k, i , 1 ] ; 
_lk,i ,1]; 



eta 16 
eta 16 
end ; 

//Construction the connection operator 
//I. The skew — sym mctry . 
for to 16 do 

for j:=l to 128 do 
for k: = l to j do 
begin 

eta 16[i ,j ,k].x: = — eta 16[i ,k,j ].x; 
eta 16[i ,j ,k].y: = — eta 16[i ,k,j ].y; 
eta 16 [i,j,k].x: = — eta 16 [i,k,j]. 
eta 16 [i,j,k].y: = — eta 16 [i,k,j]. 
end ; 

/ / 2. Duplication, 
for i: = l to 64 do 
for 1: = 1 to 64 do 
for k: = l to 14 do 
begin 

eta_16 [k , i + 64, 1 +64]: = mul (m_, eta 



for n = lG from ]32| . 



eta 

end ; 
//:',. n-l.-,.l(i 

for i: = l to 64 do 
begin 

eta_ 16 [ 1 5 , 

eta_16 |15 , 

eta_16 [15 

eta 16 
end : 



_16_]k,l 

16_]k,i+64,l +64]: = mul(m_, eta_16 jk , 1 



1); 
1); 



i , i+64].x:=0; 
i +64, i ] . x: = 0; 
i +64] .x: =0; 



eta_16 115 , 
eta 16 115, 



-1: 



[1 5 , i +64, i ] . x: =0; eta 



16_ 
16 



115 , 
115 , 



i +64].y: = l; 
h64, i 1 . y: = 
, i +64].y: = -l; 
+ 64, i ] . y: = l; 



eta_16 ]16 , i 
eta_16 116 , i 
eta_16_ ]16 , 
eta 16 16 , 



i +64].x: = l; 
f 64, i ] . x: = 1; 
, i +64].x: = l; 
+ 64, i ] . x: = 1; 



eta_16 ]16 , i , i +64] .y :=0; 
eta_16 116 , i +64, i ] . y : = 0; 
eta_16_]16,i,i+64].y:=0; 
eta_16_]16,i+64,i].y:=0; 



16 



280 // 4. Multiply by l/v/2. 

281 for i: = l to 16 do 

282 for j: = l to 128 do 

283 for k: = l to 128 do 

284 begin 

285 eta_16[i ,j ,k|.x: = eta_16[i ,j ,k]. x/sqrt (2 ) ; 

286 eta_16|i ,j ,k|.y: = eta_16[i ,j .kj.y / sqrt ( 2 ) ; 

287 eta_16_[i ,j ,k].x:=eta_16_|i ,j ,k|. x/sqrt (2); 

288 eta_16_[i ,j ,ki.y:=eta_16_|i ,j ,k|.y/sqrt (2); 

289 end ; 

290 //Initialization 1 li c controlling spinois from 1341 . 

291 for j: = l to 128 do 

292 Init_(x[j]); 

293 X I 1 ] . X : = 1 ; 

294 X [ 6 5 ] . X : = 1 1 

295 / / C o n s t r u c t i (.1 n of t!ic inclusion operators Pj A from 1381 

296 for 1: = 1 to 4 do 

297 for i: = l to 16 do 

298 for j : = 1 to 128 do 

299 begin 

300 Init_ (P[ i , j ] ) ; 

301 for k: = l to 128 do 

302 P[ i , j ] : = add(P [ i , j ] , mul (eta_16_ |i ,k,j] ,x|k])); 

303 end ; 

304 //Construction of the structure constants of the generating algebra for n = 16 ^gen {{Vgen}ij'^ ) from jsl . 1351 ■ 

305 //I- Alultiply the connection operators by R. 

306 begin 

307 for i: = l to 16 do 

308 for j: = l to 128 do 

309 for k: = l to 16 do 

310 begin 

311 eta_ |i ,j ,k|.x:=0; 

312 eta_ |i ,j ,k|.y:=0; 

313 for m: = l to 128 do 

314 eta_|i,j,k]: = add ( eta_ [ i , j , k ] , mul (eta_16[i ,j ,m] ,P[k,ml)); 

315 end ; 

316 for i: = l to 16 do 

317 for j : = 1 to 16 do 

318 for k: = l to 16 do 

319 begin 

320 eta[i ,j ,k].x: = 0; 

321 eta[i ,j ,k|.y: = 0; 

322 for m: = l to 128 do 

323 eta[i ,j ,k|: = add(eta|i ,j ,k| , mul (eta_[i ,m,k] ,P[j ,m|)); 

324 end ; 

325 end ; 

326 // 2. Multiply by . 

327 for i: = l to 16 do 

328 for j: = l to 16 do 

329 for k: = l to 16 do 

330 begin 

331 eta|i ,j ,k|.x: = eta[i ,j ,k|.x»sqrt (2); 

332 eta[i ,j ,ki.y:=eta|i ,j ,kj.y*sqrt (2); 

333 end ; 

334 //Initialization the basic orthogonal transformations (5/)^^ (/ — 1,15) according to note\2l 

335 //I-l- 
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3 , 1] . x: = l; 

I ,3] . x: = l; 
13 ,5].x: = -l; 
7,7]. x:= -1; 
9 ,9] . x: = l; 

15 ,ll].x: = -l; 

II ,13].x: = l; 
5,15] . x: = -l; 



8 , 1] . X 

3 ,3] . X 

4 , 5] . X 
7 , 7] . X 

9 ,9] . X 

11 ,11] 

12 ,13] 
6 , 1 5 ] . x: = 



= -1 
= 1 
= 1 
= 1 
= 1 
x: = 1 
x: = 1 
-1 



1,1]. 



= 1; 
= -1; 



3 ,3] . X 
5 , 5] . X 
15 , 7] . x: = 1; 
9 ,9] . x: = l; 
11 , 1 1] . x: = 1 
13 , 1 3] . x: = 1 
7,15] . x: = -l 



1 , 1 ] . X 

3 ,3] . X 

5 ,5] . X 

7 , 7] . X 

2 ,91.x 

4 , 1 1 ] . X 

6 , 13] . x 

8 , 15] . x 



= 1; 
= 1; 
^-1; 



1 , 1 ] . x: 
3,3]. 
5,5]. 
11,7] . x: = -l; 
13 ,9].x: = -l; 
15 ,lll.x: = -l; 
7 ,13].x: = l; 
9 ,15].x: = -l; 



1.1] 

3 ,3] 
5,5] 
7,7] 

4 ,9] 



2 , 1 1] . x: = l ; 
12 ,13] . x: = -l; 
10 ,15] . x:= -1; 



I , 1 ] . x: = 
3 ,3] . x:= 
5 , 5 ] . x: = 
15 ,7l.x: = -l; 
9 ,9] . x: = l; 

7 , 1 1] .x:-l; 
13 , 1 3] . x: = l ; 

II ,15] . x:= -1; 



1 - 1 ] • X 
3 ,3] . X 

5 , 5 ] . X 
7 , 7] . X 

6 ,9] . X 



,11]. x: = -l; 
2 ,13l.x: = l; 
12 ,15] . x:= -1; 



I , 1 ] . x: = 
3 ,3] . x:= 
5 ,5] . x:= 

II , 7] . x: = 1 ; 
7 ,9] . x: = l; 

15 , 1 1 ] . x:= -1; 
9 ,13].x: = -l; 
13 , 1 5] . x:= -1; 
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orthogona 
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orthogona 
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orthogona 
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orthogona 
orthogona 
orthogona 
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orthogona 
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473 
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483 
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488 
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490 
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492 
493 
494 
495 
496 
497 
498 
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500 
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507 
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509 
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orthogonal [15 ,1,1] 
orthogonal [15 ,3 ,3] 
orthogonal [15 ,5 ,5[ 
orthogonal [15 ,7 ,7[ 
'orthogonal [15 ,9 , 9 | 
orthogonal [15 ,11 ,11[ 



//I = 

= 1; s_orthogonal[l5,14,2].x: = l; 

= 1; s_orthogonal[l5,12,4].x:= — 1 

= 1; s orthogonal[15,10,6].x: = l 

= 1; s orthogonal [15 ,8 ,8l.x:=— 1 

= — 1; s orthogonal[15,6,10].x: — 1 

x:= — 1; s orthogonal [15, 4, 12]. x: — 1 
s orthogonal [15, 13, 13]. x: = l; s orthogonal [15, 2, 14]. x: — 1 

s orthogonal [15, 15, 15]. x: — — 1; s orthogonal [15,0, 16]. x: — 1 
//Constructing the structural constant of the canonical s c d c n i o n algebra for n = 1 6 . 
//I. Constructing the sti'uctural constants of the basic algebras 
//Ai : (vi)ij'' - (Si)i'{Si)j"''(r,g^„)lr,,''(Si)''r- (-r=T7TS) from JH) . 
for m: = l to 15 do 
begin 
for i : = 1 to 16 do 
for j: = l to 16 do 
for k: = to 15 do 
begin 

eta orthogonal[m, i ,j ,k] . x:=0; 
eta orthogonal[m,i ,j ,k].y:=0; 
for~l: = l to 16 do 

eta orthogonal[m,i ,j ,k]: = 

add (eta orthogonal[m, i ,j ,k] ,mul(s orthogonal [m,k, 1 ] , eta [i ,j , 1 ]) ) ; 
end ; 

for i : = 1 to 16 do 
for j:=0 to 15 do 
for k:=0 to 15 do 
begin 

eta orthogonal [m, i ,j ,k].x:=0; 
eta orthogonal [m, i ,j ,k].y:=0; 
for~l: = l to 16~do 
eta orthogonal [iTi,i ,j ,k]: = 

add (eta orthogonal [m, i ,j ,k] ,mul(s orthogonal [m,j , 1 ] , eta orthogonal[m,i , 1 ,k] ) ) ; 
end ; 

for i:=0 to 15 do 
for j : = to 15 do 
for k:=0 to 15 do 
begin 

eta orthogonal[m,i ,j ,k].x:— 0; 
eta orthogonal[m,i ,j ,k].y:=0; 
for~l: = l to 16 do 
eta orthogonal[m, i ,j ,k]: = 

add(eta orthogonal[m, i ,j ,k] ,mul(s orthogonal [m,i ,1] ,eta orthogonal [m,! ,j ,k])); 
end ; 
end ; 

//2. Initialization the complex facror — 12(m_12)j ■i-(m_3). 

m_12.x:=-12; 

m_12 . y : ^0 ; 

m 3 . X : — 1 / 3 ; 

in~3 . y : ^ ; 
/ / 3. Constructing according to 

//Vij'' (1 - E ^I)(.V0)ij'' + ^ E + iV0),j'') = |(-12('7o)i/ + E (Vl)ij'') , 

1=1 1=1 • . 1=1 
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-9,j(^v'')) from l29l,j4lj. 



for i:=0 to 15 do 
for j:=0 to 15 do 
for k: = to 15 do 
begin 

eta constant [i,j,k[.x: = 0; 
eta constant [i,j,k[.y:=0; 
for m: = 1 to 15 do 

eta constant [i ,j ,k[: = add(eta constant [i ,j ,k] ,eta orthogonal[m,i ,j ,k[); 
eta constant [i ,j ,k[: = mul(m 3,add(eta constant [i ,j ,k[ , 

~ mul(m_12, add ( add ( mu^ unit _ [ j | 7g [ i , k [ ) , mul (unit_[i[,g[j,k[)), mul (m_, mul (g[i,j[,unit_[k|)))))); 

end ; 

//Outj^iit ..r IVie ^:rdenion multiplication table, 
for i: = l to 16 do 
begin 

StringGridl.Colls[0,i[: = IntToStr(i-l); 
StringGridl . Cells [i ,0[: = IntToStr(i -1); 
end ; 

for i:=0 to 15 do 
for j :=0 to 15 do 
begin 

StringGridl . Cells [j + l,i+l[: = ' ' ; 
for k: = to 15 do 
i f Round {eta constant [i ,j ,k].x)<>0 then 
StringGridl . Colls [j+l,i + 1[ : = IntToStr (Round { cta_constant [i ,j ,k].x))+'«c '+IntToStr { k ) ; 

end ; 

//Output of the scdenion ni ti 1 t i p 1 i c a t i o n tabic into the file . 
IniFile:=TIniFile . Great e(GetCurrentDir+'\IniFile . ini ' ); 
array str:=''; 
for i~=0 to 15 do 
begin 

array _str : = array _str+Forinat ( '%12s ' , [ chr ( 36 ) + ' e_ { '+IntTostr ( i ) + ' } '+chr ( 3 6 ) ] ) ; 
if i<15 then 
array str:=array str+'^&„ ' ; 
end ; 
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563 IniFile . WriteString( ' BapHaHT„ ' , '0000000* ' ,array_str+'\\„\hline ' ); 

564 for i :=0 to 15 do 

565 begin 

566 array str:=''; 

567 for jr=0 to 15 do 

568 begin 

569 for k: = to 15 do 

570 i f Round (eta constant [i ,j ,k].x)<>0 then 

571 array str: = array st r+Format { '%12s' ,[IntToStr (Rxjund {eta constant [i ,j ,k] .x)) + 

572 ~ ~ 

573 'x '+chr (36)+ 'o_{ ' +Int ToS t r ( k) + ' } '+chr ( 3 6 ) | ) ; 

574 if j <15 then 

575 array str: = array str+'^&„ ' ; 

576 end ; ~ ~ 

577 if i<10 then 

578 IniFile.WriteString( 'BapnaHT^ ' , '0 '+chr (36)+ 'e_{ '+IntTostr(i)+'} '+chr(36) ,array_str+'\\„\hline ') 

579 else 

580 IniFile. WriteString(' BapnaHT_ ' , chr (36)+ 'e_{ '+IntTostr (i)+ '} '+chr(36) ,array_str+'\\_\hline ' ); 

581 end; 



582 end ; 

583 end . 

684 ' 
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